home *** CD-ROM | disk | FTP | other *** search
/ HTBasic 9.3 / HTBasic 9.3.iso / 93win / data1.cab / Advanced_Math_Samples / w_ksiser < prev    next >
Encoding:
Text File  |  2005-03-02  |  971 b   |  42 lines
  1. 10    CLEAR SCREEN
  2. 20    LOADSUB ALL FROM "..\mathlib\Mathlib.hts"
  3. 30    RANDOMIZE
  4. 40    REAL A(128),B(128)
  5. 50    MAT A=(6)
  6. 60    P=8
  7. 70    CALL W_kaiser(A(*),P,B(*))
  8. 80    Function$="W_kaiser"
  9. 90    X_left=0
  10. 100   X_right=128
  11. 110   Y_bottom=0
  12. 120   Y_top=6
  13. 130   X_tick=32
  14. 140   Y_tick=1
  15. 150   PRINT Function$;" example"
  16. 160   PRINT "x, y"
  17. 170   VIEWPORT 60,130,20,90
  18. 180   WINDOW X_left,X_right,Y_bottom,Y_top
  19. 190   FRAME
  20. 200   AXES X_tick,Y_tick
  21. 210   PEN 6
  22. 220! Draw graph
  23. 230   FOR Loop=X_left TO X_right
  24. 240     PLOT Loop,B(Loop)
  25. 250     IF Loop MOD X_tick=0 THEN
  26. 260       PRINT Loop,B(Loop)! place function here.
  27. 270     END IF
  28. 280   NEXT Loop
  29. 290! Draw labels
  30. 300   CSIZE 3
  31. 310   PEN 1
  32. 320   FOR Loop=X_left TO X_right STEP X_tick
  33. 330     MOVE Loop,0
  34. 340     LABEL Loop
  35. 350   NEXT Loop
  36. 360   FOR Loop=Y_bottom TO Y_top STEP Y_tick
  37. 370     MOVE 0,Loop
  38. 380     LABEL Loop
  39. 390   NEXT Loop
  40. 400   DELSUB FNAi TO END
  41. 410   END
  42.